home *** CD-ROM | disk | FTP | other *** search
/ Focus for Success / Focus for Success.iso / pc / game2.dxr / 00088_Field_Script Score g2.txt < prev    next >
Text File  |  1995-02-28  |  2KB  |  51 lines
  1. on mouseUp
  2.   --NOW STORING SCORES
  3.   --CALCULATION WHIZ
  4.   --COPYRIGHT 1993 BY ROBERT M. NIDEFFER
  5.   PUT 0 INTO X
  6.   IF CARD FLD PLAYER=EMPTY THEN
  7.     PUT "ANONYMOUS" INTO LINE 1 OF CARD FLD CALCULATE
  8.   ELSE
  9.     PUT CARD FLD PLAYER INTO LINE 1 OF CARD FLD CALCULATE
  10.   END IF
  11.   PUT LINE 1 OF CARD FLD COUNT2 INTO CT
  12.   PUT CT INTO LINE 2 OF CARD FLD CALCULATE
  13.   PUT LINE 1 OF CARD FLD COUNT3 INTO X
  14.   PUT X INTO LINE 3 OF CARD FLD CALCULATE
  15.   PUT 0 INTO X
  16.   REPEAT WITH I=1 TO CT
  17.     ADD LINE I OF CARD FLD SUBJECT1 TO X
  18.   END REPEAT
  19.   SET NUMBERFORMAT TO 0.00
  20.   PUT ((X/CT)/60) INTO SECS
  21.   PUT SECS INTO LINE 4 OF CARD FLD CALCULATE
  22.   PUT LINE 1 OF CARD FLD COUNT3 INTO MIS
  23.   PUT 100*(CT-MIS) INTO V1
  24.   PUT SECS*CT INTO V2
  25.   PUT ROUND OF V1-V2 INTO LINE 5 OF CARD FLD CALCULATE
  26.   SET LOCKSCREEN TO TRUE
  27.   SET LOCKMESSAGES TO FALSE
  28.   GO CARD MATHSCORE
  29.   PUT CARD FLD PLAYER OF CARD CALCULATION INTO M
  30.   IF M=EMPTY THEN PUT "NAMELESS" INTO M
  31.   PUT M INTO CARD FLD PLAYER1
  32.   PUT CARD FLD "CALCULATE" OF CARD CALCULATION INTO CARD FLD NAMELESS
  33.   CLICK AT LOC OF CARD BUTTON SCORE
  34.   GO CARD CALCULATION
  35.   CHOOSE BROWSE TOOL
  36.   --NOW SAVING SCORES
  37.   --SUBJECT NAME=V1
  38.   PUT LINE 1 OF CARD FLD CALCULATE INTO V1
  39.   --V2=NUMBER CORRECT
  40.   PUT LINE 2 OF CARD FLD CALCULATE INTO V2
  41.   --V3=NUMBER INCORRECT
  42.   PUT LINE 3 OF CARD FLD CALCULATE INTO V3
  43.   --V4=AVERAGE SOLUTION TIME
  44.   PUT LINE 4 OF CARD FLD CALCULATE INTO V4
  45.   PUT NUMBER OF LINES IN CARD FLD SUMMARY INTO CT
  46.   PUT V1&","&V2&","&V3&","&V4 INTO LINE CT+1 OF CARD FLD SUMMARY
  47.   GO CARD MATHSCORE
  48.   SET LOCKSCREEN TO FALSE
  49.   SET LOCKMESSAGES TO FALSE
  50.   
  51. end mouseUp